home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / rleview.sfx / rle2hr.bin (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  640b  |  10 lines
  1. 5 CLR:PRINT"[147]RLE2HR (C) 1986 CHRISDOS"
  2. 10 INPUT"RLE FILE NAME: ";F$
  3. 20 OPEN8,8,8,F$+",S,R"
  4. 30 POKE53265,59:POKE53272,120:POKE56576,150
  5. 40 GET#8,A$:IFA$<>"H"GOTO40
  6. 50 SYS2304:CLOSE8
  7. 60 GETA$:IFA$=""GOTO60
  8. 70 POKE53265,27:POKE53272,21:POKE56576,199
  9. 80 END
  10.